home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / timeline.dir / 00404_Script_404 < prev    next >
Text File  |  1983-01-29  |  735b  |  20 lines
  1. on suono canale,fileaudio 
  2.   put "suono"
  3.   global qualelingua,qualefile,soundfile
  4.   if the machinetype < 255 then
  5.     set diviso to ":"
  6.     set chedir to chars (the moviename,1 ,length (the moviename)-4)
  7.     set qualefile to ("invenzioni:invenzio:extraurb:"&chedir&":"&fileaudio&qualelingua&".aif")
  8.     set soundfile to  ("invenzioni:invenzio:extraurb:"&chedir&":"&fileaudio&qualelingua&".aif")
  9.   else
  10.     set diviso to "\"
  11.     set chedir to chars (the moviename,1 ,length (the moviename)-4)
  12.     set qualefile to ("."&diviso&chedir&diviso&fileaudio&qualelingua&".aif")
  13.     set soundfile to the pathname&(char 3 to the number of chars in qualefile of qualefile)
  14.   end if
  15.   
  16.   
  17.   sound playfile canale, qualefile
  18. end
  19.  
  20.